Games of Daze/Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso/x2ftp/msdos/source/gfxfx/raster2.pas

Pascal/Delphi Source File | 1994-01-30 | 868 b | 74 lines

{$g+}

program Splitscreen;
var i : word;

begin
  asm
    cli
   @l0:
    mov dx,03dah
   @l1:
    in al,dx
    test al,8
    jnz @l1
   @l2:
    in al,dx
    test al,8
    jz @l2

    mov dx,03c8h
    xor al,al
    out dx,al
    inc dx
    mov al,0
    out dx,al
    mov al,10
    out dx,al
    mov al,40
    out dx,al

    mov cx,200
   @l3:

    mov dx,03dah
   @l4:
    in al,dx
    test al,1
    jnz @l4
   @l5:
    in al,dx
    test al,1
    jz @l5

    loop @l3

    {
    mov dx,03c8h
    xor al,al
    out dx,al
    inc dx
    mov al,0
    out dx,al
    mov al,10
    out dx,al
    mov al,40
    out dx,al
    }

    mov dx,03c8h
    xor al,al
    out dx,al
    inc dx
    out dx,al
    out dx,al
    out dx,al

    mov dx,60h
    in al,dx
    cmp al,1
    jne @l0
    sti
  end;
end.